# Usage: britain.tcl

if {![info exists eWorkDir]} {set eWorkDir [file dirname [info script]]}

package require DPeye

create {
	sourceFile standard.tcl
	outputFile britain.ps 
	mapFile britain.map
	title "diplomacy map (britain variant)"
	images {
		chart {britain.base.ps {scan {22 25 650 576} {} {{part1 part2 part3 part4 part5 LAND} {Then Africa LAND} part6 part7 part8 part9 part10 part11 part12 part13 part14 part15 part16 part17 part18} \
			{gm moveto lin lineto SEA {Blue fill} ISLAND {Brown fill} SWITZERLAND {Grey fill} BORDER {BorderBlack stroke} internal {Black stroke} lastborder {} LAND {LandBrown stroke} miny 25}} LandBrown {}}
		coordinates {britain.base.ps {scan {} {provinces INFO supplies TLA powers COUNTRY}} {} {}}
	}
}
